home *** CD-ROM | disk | FTP | other *** search
- ; $VER: 1.0 All rights reserved.
-
- (delopts "oknodelete" "force" "askuser")
- (complete 0)
-
- (if (exists "GOLDED:" (NOREQ))
-
- (
- (set vernum (getversion "golded:golded"))
-
- (set ver (/ vernum 65536))
- (set rev (- vernum (* ver 65536)))
-
- (set version (+ (* 10 ver) rev))
-
- (if (< version 44)
-
- (
- (message "\nSorry, GoldED 4.4.0 or better required")
-
- (exit (quiet))
- )
- )
-
- (message (cat "\n"
-
- " \n"
- "StormC mode for GoldED 4 \n"
- " \n"
- "©1996 Dietmar Eilert \n"
- " All Rights Reserved. \n"
- " \n"
- " E-Mail: dietmar@tomate.tng.oche.de \n"
- " \n"
- "GoldED Release 4.4.0+ required. \n"
- ))
-
- (if (= @language "deutsch")
-
- (set language 1)
- (set language 0)
- )
-
- (set language (askchoice
-
- (prompt "\nStormC Menu\n")
-
- (choices
-
- "English"
- "Deutsch"
- )
-
- (default language)
-
- (help @askchoice-help)
- ))
-
- (if (= language 1)
-
- (
- (set #install_api "API-Client installieren ?" )
- (set #install_syntaxparser "Syntax-Parser installieren ?")
- (set #install_syntax "Syntax-Parser" )
- (set #install_syntax_storm "WarpStormC++" )
- (set #install_syntax_warp "WarpC++" )
- (set #install_syntax_standard "Standard" )
- (set #install_syntax_none "Keiner" )
-
- (set #install_syntax_help (cat "\n"
-
- "Vorauswahl des Syntax-Parsers (zuständig für \n"
- "die farbige Darstellung von Schlüsselworten): \n"
- " \n"
- "WarpStormC++ \n"
- " \n"
- " Komplexer konfigurierbarer C++-Parser. Er- \n"
- " kennt und markiert C/C++-Befehle und Amiga- \n"
- " typische Ausdrücke. Empfohlen für 68040 und \n"
- " besser. Speicherverbrauch: hoch (Minimum: \n"
- " 150 K). Relative Performance: 45% \n"
- " \n"
- "WarpC++ \n"
- " \n"
- " Schneller C++ Parser. Beschränkte Konfi- \n"
- " gurierbarkeit. Erkennt C/C++-Befehle. \n"
- " Empfohlen für 68030 oder besser. Speicher- \n"
- " verbrauch: mittel. Relative Performance: \n"
- " 60% \n"
- " \n"
- "Standard \n"
- " \n"
- " Einfacher Kommentar-Parser: Erkennt und \n"
- " markiert C/C++-Kommentare im Quelltext. \n"
- " Empfohlen für 68020 oder besser. Kein \n"
- " nennenswerter Speicherverbrauch. Relative \n"
- " Performance: 65% \n"
- " \n"
- "Keiner \n"
- " \n"
- " Keine farbliche Hervorhebungen im Text. \n"
- " Empfohlen für 68000 oder besser. Relative \n"
- " Performance: 100% \n"
- ))
-
- (set #toolbar_style "\nBevorzugte Werkzeugleiste:\n")
-
- (set #toolbar_style_4 "4 Farben")
- (set #toolbar_style_8 "8+ Farben")
-
- (set #toolbar_style_help (cat "\n"
-
- " Beide Varianten können auf beliebigen Screens\n"
- " verwendet werden. Der 4-Farb-Stil wurde für \n"
- " vierfarbige Screen optimiert. Der 8-Farb-Stil\n"
- " wurde für Screens mit acht oder mehr Farben \n"
- " (optimal: 16 Farben) ausgelegt. \n"
- ))
- )
- (
- (set #install_api "Install API client ?" )
- (set #install_syntaxparser "Install syntax parser ?")
- (set #install_syntax "Syntax parser" )
- (set #install_syntax_storm "WarpStormC++" )
- (set #install_syntax_warp "WarpC++" )
- (set #install_syntax_standard "Standard" )
- (set #install_syntax_none "None" )
-
- (set #install_syntax_help (cat "\n"
-
- "Preselection of syntax highlighting parser \n"
- "(responsible for color-coded text): \n"
- " \n"
- "WarpStormC++ \n"
- " \n"
- " Complex configurable C++ parser. Highlights \n"
- " C keywords and Amiga keywords. Recommended \n"
- " for 68040 or better. RAM requirements: high \n"
- " (150 K minimum). Relative performance: 45% \n"
- " \n"
- "WarpC++ \n"
- " \n"
- " Fast C++ parser. Limited configurability. \n"
- " Highlights C++ keywords. Recommended for \n"
- " 68030 or better. RAM requirements: medium. \n"
- " Relative performance: 60% \n"
- " \n"
- "Standard \n"
- " \n"
- " Simple C++ comment parser. Highlights C/C++ \n"
- " comments only. Recommended for 68020 or \n"
- " better. RAM requirements: small. Relative \n"
- " performance: 65% \n"
- " \n"
- "None \n"
- " \n"
- " No syntax highlighting. Recomended for \n"
- " 68000 or better. Relative performance: 100% \n"
- ))
-
- (set #toolbar_style "\nSelect preferred toolbar style:\n")
-
- (set #toolbar_style_4 "4 colors")
- (set #toolbar_style_8 "8+ colors")
-
- (set #toolbar_style_help (cat "\n"
-
- " Both styles can be used on all screens. The \n"
- " 4 color style has been optimized for 4-color \n"
- " screens. The 8+ style has been optimized for \n"
- " screens with eight or more colors. \n"
- ))
- )
- )
-
- (copylib
-
- (prompt #install_api)
- (source "api/mirror.api")
- (dest "golded:api")
- (confirm)
- (help @copylib-help)
- )
- (
- copylib
-
- (prompt #install_api)
- (source "api/quickinfo.api")
- (dest "golded:api")
- (confirm)
- (help @copylib-help)
- )
-
- (set syntax 1)
-
- (set syntax (askchoice
-
- (prompt (cat "\n" #install_syntax "\n"))
-
- (choices
-
- #install_syntax_storm
- #install_syntax_warp
- #install_syntax_standard
- #install_syntax_none
- )
-
- (default syntax)
-
- (help #install_syntax_help)
- ))
-
- (if (not (exists "golded:syntax"))
-
- (makedir "golded:syntax")
- )
-
- (copylib
-
- (prompt #install_syntaxparser)
- (source "syntax/warpStormC++.parser")
- (dest "golded:syntax")
- (confirm)
- (help @copylib-help)
- )
-
- (copylib
-
- (prompt #install_syntaxparser)
- (source "syntax/warpC++.parser")
- (dest "golded:syntax")
- (confirm)
- (help @copylib-help)
- )
-
- (copylib
-
- (prompt #install_syntaxparser)
- (source "syntax/example_context.parser")
- (dest "golded:syntax")
- (confirm)
- (help @copylib-help)
- )
-
- (if (not (exists "golded:syntax/warpStormC++.includes"))
-
- (copyfiles
-
- (source "syntax/warpStormC++.includes")
- (dest "golded:syntax")
- (nogauge)
- )
- )
-
- (if (not (exists "golded:tools"))
-
- (makedir "golded:tools")
- )
-
- ; install registry editor (if not yet installed)
-
- (if (not (exists "golded:tools/regedit"))
-
- (makedir "golded:tools/regedit")
- )
-
- (copylib
-
- (prompt "Install registry editor ?")
- (source "bin/regedit" )
- (dest "golded:tools/regedit")
- (confirm)
- (help @copylib-help)
- )
-
- ; install manuals
-
- (if (not (exists "golded:tools/stormc"))
-
- (makedir "golded:tools/stormc")
- )
-
- (copyfiles
-
- (source "stormc")
- (dest "golded:tools/stormc")
- (all)
- (nogauge)
- )
-
- ; install toolbar images
-
- (if (exists "toolbar") (
-
- (set hicolor
-
- (askchoice
-
- (prompt #toolbar_style)
-
- (choices
-
- #toolbar_style_4
- #toolbar_style_8
- )
-
- (default 1)
-
- (help #toolbar_style_help)
- )
- )
-
- (if (not (exists "golded:toolbar"))
-
- (makedir "golded:toolbar")
- )
-
- (if (not (exists "golded:toolbar/stormc"))
-
- (makedir "golded:toolbar/stormc")
- )
-
- (copyfiles
-
- (source "toolbar")
- (dest "golded:toolbar")
- (nogauge)
- (all)
- )
-
- (if (= hicolor 1)
-
- (copyfiles
-
- (source "toolbar16")
- (dest "golded:toolbar")
- (nogauge)
- (all)
- )
- )
- ))
-
- ; install macros
-
- (if (not (exists "golded:arexx"))
-
- (makedir "golded:arexx")
- )
-
- (copyfiles
-
- (source "arexx")
- (dest "golded:arexx")
- (nogauge)
- (all)
- )
-
- // create temporary directory
-
- (if (not (exists "t:" (noreq)))
-
- (
- (if (not (exists "ram:t" (noreq)))
-
- (makedir "ram:t")
- )
-
- (makeassign "t" "ram:t")
- )
- )
-
- (copyfiles
-
- (source "presets" )
- (dest "t:" )
- (pattern "stormc#?")
- (nogauge)
- )
-
- (if (= language 0)
-
- (copyfiles
-
- (source "presets/e")
- (dest "t:" )
- (nogauge)
- (all)
- )
-
- (copyfiles
-
- (source "presets/d")
- (dest "t:" )
- (nogauge)
- (all)
- )
- )
-
- (if (= syntax 0) (copyfiles (nogauge) (source "presets/cpp/stormc_cpp_0.syntax") (dest "t:") (newname "stormc_cpp.syntax")))
- (if (= syntax 1) (copyfiles (nogauge) (source "presets/cpp/stormc_cpp_1.syntax") (dest "t:") (newname "stormc_cpp.syntax")))
- (if (= syntax 2) (copyfiles (nogauge) (source "presets/cpp/stormc_cpp_2.syntax") (dest "t:") (newname "stormc_cpp.syntax")))
- (if (= syntax 3) (copyfiles (nogauge) (source "presets/cpp/stormc_cpp_3.syntax") (dest "t:") (newname "stormc_cpp.syntax")))
-
- ; update registry
-
- (working "Updating registry...")
-
- (run "golded:tools/regedit/regedit script=install.bat")
- )
-
- (message (cat "\n"
-
- "Please install GoldED before attempting to\n"
- "install this client. \n"
- ))
- )
-
- (exit (quiet))
-
- (welcome)
-